home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / comm / mail / AEMail230.lha / aemail230 / arexx / Modgrpnknm.aem < prev    next >
Encoding:
Text File  |  1998-09-25  |  2.2 KB  |  90 lines
  1. /* AEMail Modify Group Nickname */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. /* TRACE ALL */
  6.  
  7. ADDTOAB = 1
  8. IF (ADDTOAB = 1) THEN DO
  9.     OK = 0
  10.     DO UNTIL OK = 1
  11.         ADDRESS_BOOK LIST GROUP DESCRIPTION LF
  12.         grplist = RESULT
  13.         GETLISTITEM "'"grplist"' 'Select the Group Nickname to Modify'"
  14.         grpname = RESULT
  15.         IF (grpname = "") THEN EXIT
  16.         PARSE VAR grpname grpname dflt
  17.         dflt = STRIP(dflt, 'L')
  18.         ADDRESS_BOOK GET grpname TYPE
  19.         addrtype = RESULT
  20.         IF (addrtype = -1) THEN DO
  21.             OKAY2 '"Re-Enter Name|Cancel"' "Group Nickname Does Not Exist"
  22.             IF (RESULT = 1) THEN OK = 0
  23.             IF (RESULT = 0) THEN exit
  24.             END
  25.         IF (addrtype = 0) THEN DO
  26.             OKAY2 '"Re-enter Name|Cancel"' "Nickname is already used for an Individual"
  27.             IF (RESULT = 1) THEN OK = 0
  28.             IF (RESULT = 0) THEN exit
  29.             END
  30.         IF (addrtype = 1) THEN OK = 1
  31.         END
  32.     END
  33.  
  34. ADDRESS_BOOK GET grpname REALNAME
  35. grpdesc = RESULT
  36.  
  37. ADDRESS_BOOK GET grpname 'SHO-FLAG'
  38.  
  39. IF (RESULT = 1) THEN sndho = "SHO"
  40. ELSE sndho = ""
  41.  
  42. IF (ADDTOAB = 1) THEN DO
  43.     OK = 0
  44.     grpname2 = grpname
  45.     DO UNTIL OK = 1
  46.         GETSTRING '"Enter New Group Nickname"' "'"grpname2"'"
  47.         grpname2 = RESULT
  48.         IF (grpname2 = "") THEN EXIT
  49.         ADDRESS_BOOK GET grpname2 TYPE
  50.         addrtype2 = RESULT
  51.         IF (addrtype2 = -1) THEN OK = 1
  52.         ELSE DO
  53.             OKAY2 '"Re-enter Name|Cancel"' "Nickname is already used"
  54.             IF (RESULT = 1) THEN OK = 0
  55.             IF (RESULT = 0) THEN exit
  56.             END
  57.         END
  58.     END
  59.  
  60. ADDRESS_BOOK GET grpname FIRST USERID
  61.  
  62. IF (RC ~= 0) THEN DO
  63.     OKAY1 "last error is "AEMAIL.LASTERROR
  64.     EXIT
  65.     END
  66.  
  67. emailaddr=RESULT
  68.  
  69. DO UNTIL emailaddr = ""
  70.  
  71.     IF (ADDTOAB = 1) THEN DO
  72.         IF (addrtype2 = -1) THEN DO
  73.             cmd = "ADDRESS_BOOK CREATE GROUP " grpname2 sndho "'"emailaddr"'" grpdesc
  74.             addrtype2 = 1
  75.             END
  76.         ELSE cmd = "ADDRESS_BOOK ADD TO GROUP " grpname2 "'"emailaddr"'"
  77.         cmd
  78.         END
  79.     ADDRESS_BOOK GET grpname NEXT USERID
  80.     IF (RC ~= 0) THEN DO
  81.         OKAY1 "last error is "AEMAIL.LASTERROR
  82.         EXIT
  83.         END
  84.     emailaddr=RESULT
  85.     END
  86.  
  87. ADDRESS_BOOK DELETE GROUP grpname
  88.  
  89. OKAY1 "Group Nickname modified"
  90.